﻿select VEN_RAGSOC TES_ragsoc_ute,
pe. nominativo_rag_soc TES_RAGSOC_CLI,
trim(ind.TOPONIMO_VIA)||' '||trim(ind.PREFISSO_VIA)||' '||trim(ind.DENOMINAZIONE_VIA)||' '||trim(ind.CIVICO)||' '||TRIM(ind.ESTENSIONE_CIVICO)||' '||trim(ind.COMUNE)||' '||trim(ind.PROVINCIA)  TES_IND_CLI,
trim(ind.TOPONIMO_VIA)||' '||trim(ind1.PREFISSO_VIA)||' '||trim(ind1.DENOMINAZIONE_VIA)||' '||trim(ind1.CIVICO)||' '||TRIM(ind1.ESTENSIONE_CIVICO)||' '||trim(ind1.COMUNE)||' '||trim(ind1.PROVINCIA)   TES_IND_FORNIT,
co.codice_contratto TES_COD_CONTR_CLI,
case when ut.codice_modello_contatore_1 like 'M%' or ut.codice_modello_contatore_1 = 'TM80'or ut.codice_modello_contatore_1 =  'RT90'  then 'SI' else 'NO' end TES_MIS_ELECO,
ut.matricola_contatore_1 TES_MATR_ATT,
ut.matricola_contatore_2 TES_MATR_rea,
ut.matricola_contatore_3 TES_MATR_pot,
ut.tensione_prevista TES_TENSIONE,
co.potenza_impegnata  TES_POTENZA_CONTR,
co.potenza_tollerata  TES_POTENZA_TOLL,
ut.fasi_previste TES_FASI,
co.codice_tipo_uso||co.codice_tariffa||co.codice_uso TES_USO,
 
'k= '||fo.FATTORE_CORRETTIVO|| ' kp= '||fo.FATTORE_COMPRIMIBILITA  TES_K     
from
 
db1.contratti@pgu3 co,db1.utenze@pgu3 ut,db1.forniture@pgu3 fo,
db1.contratti_aggregazioni@pgu3 ca,db1.persone@pgu3 pe,gep_ana_vendi av,
db1.indirizzi@pgu3 ind,db1.indirizzi@pgu3 ind1
where co.codice_gestione='ASM'
and co.codicE_servizio = 'E'
and ut.codice_gestione='ASM'
and ut.codicE_servizio = 'E'
and fo.codice_gestione='ASM'
and fo.codicE_servizio = 'E'
and ca.codice_gestione='ASM'
and fo.codice_contratto=co.codice_contratto
and (co.codice_contratto = ut.codice_contratto_corr
          or (ut.codice_contratto_corr =0 and co.codice_contratto  = ut.CODICE_CONTRATTO_PREC))
and co.codice_utente=ca.codice_utente
and pe.codice_persona=ca.codice_persona_titolare
and codice_indirizzo_utilizzatore=ind.codice_indirizzo
and ut.CODICE_INDIRIZZO_CONTATORE=ind1.codice_indirizzo
and ut.codice_allacciamento = :pCodiceAllaccia
and ut.progressivo_utenza= :pProgrUtenza
and av.VEN_COD_CONTR_DISP  = :pContrDisp